home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / fortran / f2c_src.zip / F2C / LIBI77 / WSNE.C < prev    next >
C/C++ Source or Header  |  1991-06-10  |  462b  |  28 lines
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "lio.h"
  4.  
  5.  integer
  6. s_wsne(a)
  7.  cilist *a;
  8. {
  9.     int n;
  10.     extern int (*donewrec)(), t_putc(), x_wSL();
  11.     extern integer e_wsle();
  12.  
  13.     if(!init)
  14.         f_init();
  15.     if(n=c_le(a))
  16.         return(n);
  17.     reading=0;
  18.     external=1;
  19.     formatted=1;
  20.     putn = t_putc;
  21.     L_len = LINE;
  22.     donewrec = x_wSL;
  23.     if(curunit->uwrt != 1 && nowwriting(curunit))
  24.         err(a->cierr, errno, "namelist output start");
  25.     x_wsne(a);
  26.     return e_wsle();
  27.     }
  28.